home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
menuman.zip
/
SIGN.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-04-06
|
1KB
|
38 lines
' For use with RUNMENU.BAS or as an example of graphics
DIM sign$(16)
CLS
sign$(1) = STRING$(80, 223)
sign$(2) = " ╔═══╗ ╔═══╗"
sign$(3) = " ║ ║ ║ ║"
sign$(4) = " ║ ║ ║ ║"
sign$(5) = " ║ ║ ║ ║"
sign$(6) = " ║ ║ ║ ║"
sign$(7) = " ║ ║ ║ ║"
sign$(8) = " ║ ╚════╝ ║"
sign$(9) = " ║ ║ ╔══════ ╔═╗ ║ ║ ║ ╔══╗ ╔══╗ ╔════╗ ╔═╗ ║"
sign$(10) = " ║ ║ ║ ║ ╚═╗ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ╚═╗ ║"
sign$(11) = " ║ ║ ║ ║ ╚═╗ ║ ║ ║ ║ ╚══╝ ║ ║ ║ ║ ╚═╗ ║"
sign$(12) = " ║ ║ ║════ ║ ╚═╗ ║ ║ ║ ║ ║ ║════║ ║ ╚═╗ ║"
sign$(13) = " ║ ║ ║ ║ ╚═║ ║ ║ ║ ║ ║ ║ ║ ╚═║"
sign$(14) = " ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║"
sign$(15) = " ║ ║ ╚══════ ║ ║ ╚═══════╝ ║ ║ ║ ║ ║ ║"
sign$(16) = STRING$(80, 220)
FOR set = 1 TO 16
LOCATE set + 3, 1: PRINT sign$(set)
NEXT
SLEEP 15
CLS
LOCATE 13, 20: PRINT "SIGN.BAS WILL NOW CHAIN ITSELF TO RUNMENU.BAS"
SLEEP 7
CLS
RUN "RUNMENU"